home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / listutil.d < prev    next >
Text File  |  1997-10-26  |  901b  |  34 lines
  1. DEFINITION MODULE ListUtils;
  2.  
  3. FROM mtUtils    IMPORT tRect;
  4. FROM SYSTEM     IMPORT ADDRESS;
  5.  
  6.  
  7. TYPE
  8.         tPoint          = RECORD
  9.                             x: INTEGER;
  10.                             y: INTEGER;
  11.                           END;
  12.                   
  13. TYPE    TwoRects        = ARRAY[0..1] OF tRect;
  14.  
  15. PROCEDURE WordArray (VAR r1, r2 : tRect) : TwoRects;
  16.  
  17. PROCEDURE FrameRects (r1, r2: tRect): tRect;
  18.  
  19. PROCEDURE DiffVertRect (r1, r2 : tRect) : tRect;
  20. (* liefert das Rechteck aus r1, das nicht von r2 berdeckt wird 
  21.  *)
  22.  
  23. PROCEDURE CalcAbsArea (tree : ADDRESS; obj: INTEGER; VAR r : tRect);
  24.  
  25. (* slider Routinen *)
  26.  
  27. PROCEDURE formSetSlider (dial: ADDRESS;
  28.                          parent, slider : INTEGER;
  29.                          dir : INTEGER;
  30.                          maxVal, currentVal : LONGINT;
  31.                          draw : BOOLEAN);
  32.  
  33. END ListUtils.
  34.